Sub populate_Tree()
    Dim node_key As String
    Dim entry_letter As String
    Dim node_name As String
    Dim myRootNode As Object
    Dim ChildNode As Object
    Dim NameNode As Object
    Dim I As Integer
    Dim myrdr As SqlClient.SqlDataReader
    Dim myNewNode = New Microsoft.Web.UI.WebControls.TreeNode()
    SqlCommand1.Parameters("@UID").Value = uid
    SqlCommand1.Connection.Open()
    myrdr = SqlCommand1.ExecuteReader(CommandBehavior.CloseConnection)
    myRootNode = tvTreeView.Nodes.Item(0)
    Do While myrdr.Read
        node_key = myrdr.GetString(1)
        entry_letter = myrdr.Substring(0, 1)
        Dim myNameNode = New Microsoft.Web.UI.WebControls.TreeNode()
        node_name = myrdr.GetString(1) & ", " & myrdr.GetString(2)
        For Each myNewNode In myRootNode.Nodes
            If myNewNode.Text = entry_letter Then
                I = Mid(myNewNode.getnodeindex, 3)
                ChildNode = myRootNode.nodes.item(I)
                ChildNode.nodes.add(myNameNode)
                NameNode = ChildNode.nodes.item(ChildNode.nodes.count - 1)
                NameNode.text = node_name
            End If
        Next
    Loop
    myrdr.Close()

    End Sub
